perm filename IF.F4[P11,LCS] blob sn#428466 filedate 1979-04-02 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		DIMENSION I(80)
C00003 ENDMK
CāŠ—;
	DIMENSION I(80)
	TYPE 10
	ACCEPT 11,N
10	FORMAT(' NAME  '$)
11	FORMAT(A5)
1	FORMAT(80A1)
2	FORMAT(1X80A1)
	CALL IFILE(1,'XXX')
	CALL OFILE(21,N)
3       READ(1,1,END=5)I
	IF(I(1).EQ.'C')GO TO 3
	DO 4 K=1,80
	IF(I(K).NE.'I')GO TO 4
	IF(I(K+1).NE.'F')GO TO 4
	WRITE(21,1)I
	WRITE(5,2)I
	GO TO 3
4	CONTINUE
	GO TO 3
5	END